RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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GCA.REQ Definitions portato ing, 50 the General Control Area (GCA) 
i 
leeveeeeceeneeceeereeerereetrentrenentenetenentennetenenetteeererereeerereets 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE is ryt sno UNDER A LICENSE AND MAY BE USED AND ag 
!* ONLY IN ACCORDANCE WITH THE yen OF SUCH pat SE AND WITH THE 
:* INCLUSION OF THe oN Spt NOTICE, THIS SOFTWARE OR ANY OTHER 
'* COPIES THEREOF MA T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
tt OTHER PERSON. NO. rit LE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
x 
* 
® 
* 
® 
® 
ie TRANSFERRED. * 
* 
® 
& 
* 
* 
*® 
* 
® 
® 
® 


e phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hed SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:@ CORPORATION. 

ITY FOR THE USE OR _ RELIABILITY OF ITS 


!® DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
!® SOFTWARE ON EQUIPMENT WHICH IS N 


PASSSSSSSSSSLI CIEE S TET T TTT Pec ere ccc rect i cic i icc c iter itt iii it ici i iit 
' 


‘ee 
; FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 
Definitions for the SCA (Global Control Area). Initialized by 
DOOPTS from command-line information. 


i ENVIRONMENT: Transportable BLISS 


i 

i 

i 

' 

' 

: 

: AUTHOR: Rich Friday 

CREATION DATE: 1978 

; MODIFIED BY: 

i 026 REM00026 Ray Marshall 1é-Rey=1963 , 

‘ Added support for ota cab ofa output Lines numbers by adding 

another macro: GCA_C | 
: 025 REM00025 Ray Marshall 16-November-1983 | 
: Added macros so that Ken's SAVRES module can load cells with 

: them instead of using numeric offsets. They have the string 
: _f_"’ within them. 

024  KFA00024 Ken Alden 10-Oct-1983 | 
Put gca_cmd_pages in the right place. 

023 KFA00023 Ken Alden 06-0c t-1983 | 


Added gca_cmd_pages to signal the /pages qualifier. 
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022 KFA00022 Alden 27-Jul-1983 
Added gca_ tlee.cae” to SAVE list. 


021 KFA00U21 Ken Alden 15-Jul-1983 
Added gca_do_cont_already, gca_do_index_already. 


020 KFA00020 Ken Alden 27-Jun-1983 
Added gca_cref_errcnt to the top eight bits of black box. 


019 KFA00019 Ken 4 13-Jun-1983 
Made use of GCA[45] oy flaging léoun Line skipping. Used in 
TOPPAG and USKIPL. 


018 KAD00018 Keith Dawson 12-May-1983 
Use 16 bits each for page, index, contents, cref counts. 


017 KAD00017 Keith Dawson 21-Mar-1983 
Add bits for LNO1 output options. 


016 KFA00016 Ken Alden 16-Mar-1983 
Save/restore now permitted in DSR. 


015 KAD00015 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


MACRO 
gca_com_start 


GCAC 00 JX, 1A CHSPTR to the first qhocorter of, the 
‘current command (usually 's 
.GCAC 01.3%, i(SAVEALL)True if user shia’ AutopARAGRapn 
-GCAC 02 34, '(SAVEALL) True if user said .AUTOSUBTITLE 
3°)%, '!(SAVEALL)True if user said .AUTOTABLE 


g6cal 04 i, !(SAVEALL) True if user said .AUTOJUSTIFY 


gca_autopara 
gca_f_autopara 
gca_autosubt 
gca_f_autosubt 
gca_autotabl 
gca_f_autotabl 
gca_autojust 
gca_f_autojust 


nnnnnnun 
ao . 

a 

o 

> 

| ee] 


gca_bars 
gca_bars_enab 
gca_bars_on 
gca_ever_bars 
gca_draft_f 
gca_chapt 
gca_twidth_36 


> i¢ 
<BAR™ “>%, ‘True if change cers ao. pn 
GCA ce tan user gene /DEB é, tye character to be used as draft flag (from .VARIABLE command). 
& i, iTrue if document contains pr eBSRLURP only) 
- iTOPS-20 toraioe “ree wise (DSRPLUS only) 


° 'True 
° ‘Routing code for. error meseeces 
° 'If a counted Literal, the # 

fe 'True if a oy} a 
is 'TOPS-20 termina 


NO S$ is pendi 


gca_pc 
gca_ Rescase. 36 


gca_cmd_nbits 
gca_lit_ ~ {tag 
gca_cmd_(stbts 


of Line 
R CHAPTER or .NUMBER APPENDIX command has already set up NPAGEN. 
escape characteristics (DSRPLUS only) 


" 
a 
o 
& 


° ‘ultimate controls for miscellaneous functions. 
‘ ‘status of .GCA_FLAG_CMD during Literal processing. 
e ‘ultimate skates for misc functions. 


" 
i) 
oO 
QP 
ee ee 


CON COUSWN—O 


" 
ao 
oO 
> 
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gca_literal 


gca_xcase 
gca_f_xcase 


gca_page_cnt 
gca_conténts_ cnt 
gca_index_cn 
gca_old_cref_cnt 
gca_new_cref_cnt 


gca_debug_cref 
gca_debug_save 
gca_max_astn 
gca_btc” 
gca_cmd_btc 
gca_bix 


gca_ gece 
gca_f_case 
gca_ - {99 , cmd 
gca_f_flag_cmd 


gca_pwidth 


gca_lwidth 
gca_f_lwidth 


gca_clit 
gca_note_prim 
gca_note_alt 
gca_skipping 
gca_nia 
gca_xmarg 
gca_normal_xtn 
gca_foot_xtn 
gca_index_fmt 
gca_down_Tla 


gca_fehler 
gca_errcnt 
gca_err_dir 


gca_keep 
gca_f_keep 


gca_ io, flags 
a cad qu ck 
ermination_log 


GCAC 20 3%, 
.GCAC 21 9%, 
6CAL tt ¢ 4°” 
GCA 3 + 
GCA + 
GCAL 24 3%. 
GCAL 25 3%; 
GCAL 26 3%; 
GCACL 27 it. 
GCA ; % 
(GCACL299)<6, 
(GCAC29})<1, 
(GCAL29 d<¢, 
(GCAL29})<3, 
(GCALO9I) <4, 
(GCAL291)<5, 
GCAC 30 )% 
(GCAC31)<6, 
(GCAC319)<1. 
(GCAC319)<2, 
.GCAC 32 3%, 
GCAC 32 2% 
.GCAC 33 J%, 
GCAC 33 3%, 
GCAC 34 J%, 
.GCAC_35 2%, 

GCAC 35 )%, 
GCA 36 3% 
GCA 
aH, 
GCA 

CA iy 
GCAC 42 3%. 
GCAC 43 3X. 

GCAC 44 1% 
aa et el 
GCA i « 
GCAL 47 3%. 
GCA x; 
GCA x. 
GCA x. 
.GCAL 1,3 %, 
GCAC 51 7} . 
G6cac 
(GCA 333)< <6, 
(GCAL529)<1, 
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'True between .LITERAL and .END LITERAL 
'(SAVEALL) Case rules for index entries. 
‘Number of pages generated so far 
inumber of table-of-contents entries written to the .BRN file. 
‘Number of index entries written to the .BRN file. 
iNumber of cross-reference entries read from the old .BRN file. 
‘Number of cross-reference entries written to the .BRN file. 
‘Count of number of page ranges specified on /PAGE_RANGE switch. 
iTrue if skipping ou out because of a /PAGE_RANGE Specification. 
1>%, !True debugging the index. 
1>%, iTrue if debugging the table of contents. 
1>%, !True if debugging conettreness SclFe O€6cd6 
1>%, !True if want file names Listed. 
1>%, !True if want cross-reference errors flagged inline. 
lof, !True if want save/restore information echoe 
‘Result of last .AUTOSUBTITLE command. Remembered during .NO AUTOSUBTITLE. 
1>Z%, !True if a binary table of contents is wanted, 
1>%, !True iff user said / INTERMEDIATE. 
1>%, !True if a binary index is wanted. 
'(SAVEALL)Set by .UPPER/LOWER CASE 
'(SAVE)Last .FLAGS ALL/.NO FLAGS ALL command 
'Physical page width 
'(SAVE)Logical page width 
‘True for counted literals. 
‘Primary margin adjust for .NOTE 
‘Alternate margin adjust for .NOTE 
1k ‘True if in the FALSE branch of an .IF command. 
'€ount of attempted negative indents. 


iCount of crossed margin attempts. 
iNext transaction number for index entry NOT in a footnote. 


iMexe transaction number for index entry in a footnote. 
f True, Athos un dots in index. (Not currently set anywhere in the code.) 

1k, 'True i te unconditional Lines are for /down. 

‘game as MAX_REQU 

iCurrent depth of . REQUIRE Cusyally, 0, i.e., not a .REQUIRE file). 

‘True if any errors have been coun 

‘Count of Lines of error messages 

iIndicates where errors are to be. reported. 


'(SAVE) True if user said .KEEP. 


'General 1/0 control fla 
1>%, ‘True if /QUICK or / OUTPUT. 
1>%, 'True if /LOG. 
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gca_flip 
gca_s_output 
gca_op_dev 


gca_\n01_ital_under 
gca_\n01_port_land 
gca_cmd_pages 


ca_diag] 
Scacdiag2 


ca_xp_ever 
carl ihe pend 


gca_black_box 
gca_cref_errcnt 
gca_cross_reference 
gca_expand_cref 
gca_old_brn_exists 
gca_cref_changed 
gca_do_cont_already 
gca_do_index_already 
gca_rerun_count 
gca_pass_count 


LITERAL 
gca_size = 


64; ! 


wr 


VVVIVIVIVIVIVIVIA VIM VW WUT UT 


OOWOOMOOCONN OU fw 


eee ee ee ee ee eee 


rr 
rrr) = forore 
wets = 


ee ee ee ee ee ee ee ee eh = [| | ~~ ~~ we 
AAAAAAAA ABM R4R4 F4EPF AAA AAA 
es. 


DOADAQADAAGAGOAOE OO OO AAG |AaqQag 
AOOAOAOOOOYF FPF FP NOOO MOO 
>>>>>r>r>rr rm rmrm >>> >>>, 


PRL PRR PR PRP OGY ag aq Fe an an an tan 


Number of cell 
5 free cells. 


4 
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. 'True if /DEC=FLIP. 
» True if /OUTPUT was gupttctely specified. 
- [Type of output device (see OPDEV.REQ). 


» | For ot output: set=itaiics, clear=underlining. 
! For WN 1 curputs set=portrait, clear=landscape. 
>£,itTrue if /PAGES. 


‘First 16 diagnostic control flags. 
'Second 16 diagnostic control flags. 


‘True if user gave any .XP/.YP commands since last .DX or .PX. 
!Used for OUTHDR in determining if the header has been processed and output. 


- 'Number of unresolved cross references. 

» {True if user said /CROSS_REFERENCE (it's the default). 

. 'True cross references should be expanded. 

» !True an old .BRN file exists and was read. 

. !True any cross-reference changed in the course of this run. 

. 'True a do contents has been processed in this run. 

- !True a do index has been processed in this run. 

» :Number of times DSRPLUS must be rerun for complete and correct /AUTOMATIC processing. 
; !Number of the current /AUTOMATIC rerun pass. 


f 
if 
if 
if 
if 


s in GCA. As of version V04-000 there are 


'The wor i ewtne Literals define where errors are to be reported 
‘NOTE: The bit representation of these Literals is used by DOOPTS. 


LITERAL 
report_err_none = 0, 'Report no error messages 
report_err_file = 1, ‘Report in output file og Fe 
report_err_std = ¢: 'Report on standard error og only. : 
report_err_both = 3; 'Report errors in both output file and on standard error device. 


!Definition of diagnostic control flags. The names may be later changed, 
ar for now, these names will at least provide easy access for initial use. 


0 
diag!_0 = (GCA_DIAG1)<0,1>%, 

diagi-1 = (GCA~DIAG1)<1,1>%, 

diagi-¢ a (GCA“DIAGI) <¢, 128, 

diagi_5 = (GCA_DIAG1)<3,1>%, 
diay1-4 = (GCA~DIAG1)<4.1>%. 

diagi-5 = (GCA~DIAG!)<5,1>%. 

diag!-¢ = (GCA_DIAGI) <6, 14, 

diagi-7 = (GCA~DIAG1)<7.1>%. 

diag!-8 = (GCA-DIAGI)<B. 194, 

diagi-9 = (GCA~DIAG1)<9. 1>% 

diagi-10 = (GCA“DIAGI}<16, 128, 

diagi-11 = (GCA~DIAG1)<11.1>%, 

diagi-i¢ = (GCALDIAGI}<1¢, 194, 

diagi-13 = (GCA-DIAG1)<13.1>%. 

diagi-14 = (GCA~DIAG1)<14,1>%. 

diagi"15 = (GCA~DIAG1)<15.1>%; 


ref 


16-SEP-1984 16:54:44.39 Page § 


GCA.REQ;1 


>*> .*+ &* & @-e 
e285 8 2 6 © © wpepepenenene 
VPUVLSLHL SL SL SL TL VLBE A AA AAA 


VVVVVVVV VV VV VV VV 
PAAR AAA AAA AAA 
REINO OOOO OIOIOSOSOIOIOS 
VVOGVI VV VVVVVVEN9NN 
ss Soe Soe Se Shae Sian Shan en en Se Sen See Se Se oe ee 
ad ad at nd ed Pd Od dt ed ed 
SHao0bKhHhaagHGoCaaaaaaa 

e#eeceeceseeeeeeeees 


VII VV VV VV VVVUVUNV9NN9 


eee we we we Sw www 
nunnnnnnnnnnnnnun 


onerumarw 

OM UM TNOP- DOR eee 
tetespeeceecerceepeeene 
cucucucucucucucuclucucucucuCuCuC 
DOOOOOOOOMOOOOOOOO 
@eeeaeneeene eee oe eaea eo 


Saati athe tis amt ct cat ct sat ca sat see eat ea ee 


OVVVVVVVIVVVVTVVVUVUY 


ge bars on the command Line. 


uence numbers. 
ne numbers. 


t} 
KING. 


put 
said /UNDERLINING. 


said /BOLDIN 
said /OVERS 
said /INDEX 


vested out 
d /RIGHT. 
i 
G 


did not forbid chan 


requested input s 


re 
sa 


g are true if user: 
>% 
>% 
>% 
>% 
$ 
e 


>% 
>% 
>%: 


he followin 


cM 
CM 
CM 
CM 
CM 
CM 
cM 
CM 


oOo 
4 
— 
=< 
=-- 


MACRO 


gca_definition 
VECTOR Cgca_size] 
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